! ERRMSG= is an Intel extension
ALLOCATE(BOX(NUM_THREADS),BOX_CTF(NUM_THREADS),STAT=IERR,ERRMSG=ERRMSG)
END PROGRAM
